setwd(pathData)
load("epr.final.rda")

epr.final$mad_gdppc <- epr.final$mad_gdppc/1000
	epr.final <- arrange(epr.final,countries_gwid,year)

epr.final <- epr.final %>%
					group_by(countries_gwid) %>%
						mutate(colonized.impute = na.locf(colonized,na.rm=FALSE),
								high_settlers.impute = na.locf(high_settlers,na.rm=FALSE),
									european_percent.impute = na.locf(european_percent,na.rm=FALSE),
									col_br.impute = na.locf(col_br,na.rm=FALSE),
									col_fr.impute = na.locf(col_fr,na.rm=FALSE),
									col_por.impute = na.locf(col_por,na.rm=FALSE),
									col_bel.impute = na.locf(col_bel,na.rm=FALSE)
									)

